home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 21 / cdromtoday-21.iso / mac / Multimedia Bird Book / PROFILE.DIR / 00017_Script_17 < prev    next >
Text File  |  1995-06-23  |  563b  |  25 lines
  1. on mouseDown
  2.   global readArticle
  3.   if (soundBusy(1)) then 
  4.     set stopTheSound = TRUE
  5.   else
  6.     set stopTheSound = FALSE
  7.   end if
  8.   
  9.   sound stop 1
  10.   sound stop 2
  11.   set currSprite = the clickOn
  12.   puppetSprite currSprite,TRUE
  13.   set the castNum of sprite currSprite = the number of cast "redDown"
  14.   updateStage
  15.   playPuppet("story")
  16.   if stopTheSound then 
  17.     sound stop 1
  18.     sound stop 2
  19.   else
  20.     playStory(readArticle)
  21.   end if
  22.   
  23.   set the castNum of sprite currSprite = the number of cast "red"
  24.   puppetSprite currSprite,FALSE
  25. end